Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / font3270.arc / FONT3270.ASM next >

Wrap

Assembly Source File | 1986-09-07 | 35KB | 1,321 lines

PAGE FONT3270 SEGMENT ASSUME CS:FONT3270,DS:FONT3270,ES:FONT3270 ORG 100H BEGIN: MOV AX,1100H MOV BH,14 MOV BL,0 MOV CX,92 MOV DX,33 MOV BP,OFFSET FONTTBL INT 10H INT 20H ; ABCDEFGHIJKLMNOPQRSTUVWXYZ ; abcdefghijklmnopqrstuvwxyz ; !@#$%^&*()_+-={}[]:"~;'`<>?,./|\ FONTTBL LABEL BYTE EXCL DB 00000000B ; ! DB 00000000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B QUOTE DB 00000000B ; " DB 01100110B DB 01100110B DB 01100110B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B POUND DB 00000000B ; # DB 00000000B DB 01101100B DB 01101100B DB 11111110B DB 01101100B DB 01101100B DB 01101100B DB 11111110B DB 01101100B DB 01101100B DB 00000000B DB 00000000B DB 00000000B DOLLAR DB 00000000B ; $ DB 00010000B DB 01111100B DB 11010110B DB 11010000B DB 11010000B DB 01111100B DB 00010110B DB 00010110B DB 11010110B DB 01111100B DB 00010000B DB 00000000B DB 00000000B PERCENT DB 00000000B ; % DB 00000000B DB 00000000B DB 00000000B DB 11000010B DB 11000100B DB 00001000B DB 00010000B DB 00100000B DB 01000110B DB 10000110B DB 00000000B DB 00000000B DB 00000000B AND DB 00000000B ; & DB 00000000B DB 00111000B DB 01101100B DB 01101100B DB 00111000B DB 01110110B DB 11011100B DB 11001100B DB 11001100B DB 01110110B DB 00000000B DB 00000000B DB 00000000B APOST DB 00000000B ; ' DB 00110000B DB 00110000B DB 00110000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B PARENR DB 00000000B ; ( DB 00000000B DB 00001100B DB 00011000B DB 00110000B DB 00110000B DB 00110000B DB 00110000B DB 00110000B DB 00011000B DB 00001100B DB 00000000B DB 00000000B DB 00000000B PARENL DB 00000000B ; ) DB 00000000B DB 00110000B DB 00011000B DB 00001100B DB 00001100B DB 00001100B DB 00001100B DB 00001100B DB 00011000B DB 00110000B DB 00000000B DB 00000000B DB 00000000B AST DB 00000000B ; * DB 00000000B DB 00000000B DB 00000000B DB 01100110B DB 00111100B DB 11111111B DB 00111100B DB 01100110B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B PLUS DB 00000000B ; + DB 00000000B DB 00000000B DB 00000000B DB 00011000B DB 00011000B DB 01111110B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B COMMA DB 00000000B ; , DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00011100B DB 00011000B DB 00110000B DB 00000000B DB 00000000B MINUS DB 00000000B ; - DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11111100B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B PERIOD DB 00000000B ; . DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B SLASH DB 00000000B ; / DB 00000000B DB 00000010B DB 00000110B DB 00001100B DB 00011000B DB 00110000B DB 01100000B DB 11000000B DB 10000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B ZERO DB 00000000B ; 0 DB 00000000B DB 01111100B DB 11000110B DB 11000110B DB 11000110B DB 11010110B DB 11000110B DB 11000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B ONE DB 00000000B ; 1 DB 00000000B DB 00011000B DB 00111000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 01111110B DB 00000000B DB 00000000B DB 00000000B TWO DB 00000000B ; 2 DB 00000000B DB 01111100B DB 11000110B DB 00000110B DB 00001100B DB 00011000B DB 00110000B DB 01100000B DB 11000000B DB 11111110B DB 00000000B DB 00000000B DB 00000000B THREE DB 00000000B ; 3 DB 00000000B DB 01111100B DB 11000110B DB 00000110B DB 00000110B DB 00111100B DB 00000110B DB 00000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B FOUR DB 00000000B ; 4 DB 00000000B DB 00001100B DB 00011100B DB 00111100B DB 01101100B DB 11001100B DB 11111110B DB 00001100B DB 00001100B DB 00001100B DB 00000000B DB 00000000B DB 00000000B FIVE DB 00000000B ; 5 DB 00000000B DB 11111110B DB 11000000B DB 11000000B DB 11000000B DB 11111100B DB 00000110B DB 00000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B SIX DB 00000000B ; 6 DB 00000000B DB 00111100B DB 01100000B DB 11000000B DB 11000000B DB 11111100B DB 11000110B DB 11000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B SEVEN DB 00000000B ; 7 DB 00000000B DB 11111110B DB 00000110B DB 00000110B DB 00001100B DB 00011000B DB 00110000B DB 00110000B DB 00110000B DB 00110000B DB 00000000B DB 00000000B DB 00000000B EIGHT DB 00000000B ; 8 DB 00000000B DB 01111100B DB 11000110B DB 11000110B DB 11000110B DB 01111100B DB 11000110B DB 11000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B NINE DB 00000000B ; 9 DB 00000000B DB 01111100B DB 11000110B DB 11000110B DB 11000110B DB 01111110B DB 00000110B DB 00000110B DB 00001100B DB 01111000B DB 00000000B DB 00000000B DB 00000000B COLON DB 00000000B ; : DB 00000000B DB 00000000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B SEMI DB 00000000B ; DB 00000000B DB 00000000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B DB 00011000B DB 00011000B DB 00110000B DB 00000000B DB 00000000B DB 00000000B LESS DB 00000000B ; < DB 00000000B DB 00000110B DB 00001100B DB 00011000B DB 00110000B DB 01100000B DB 00110000B DB 00011000B DB 00001100B DB 00000110B DB 00000000B DB 00000000B DB 00000000B EQUAL DB 00000000B ; = DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 01111110B DB 00000000B DB 00000000B DB 01111110B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B GREATER DB 00000000B ; > DB 00000000B DB 01100000B DB 00110000B DB 00011000B DB 00001100B DB 00000110B DB 00001100B DB 00011000B DB 00110000B DB 01100000B DB 00000000B DB 00000000B DB 00000000B QUESTION DB 00000000B ; ? DB 00000000B DB 01111100B DB 11000110B DB 00000110B DB 00001100B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B AT DB 00000000B ; @ DB 00000000B DB 01111100B DB 11000110B DB 11000110B DB 11011110B DB 11011110B DB 11011110B DB 11011100B DB 11000000B DB 01111100B DB 00000000B DB 00000000B DB 00000000B A DB 00000000B ; A DB 00000000B DB 00010000B DB 00111000B DB 01101100B DB 11000110B DB 11000110B DB 11111110B DB 11000110B DB 11000110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B B DB 00000000B ; B DB 00000000B DB 11111100B DB 11000110B DB 11000110B DB 11000110B DB 11111100B DB 11000110B DB 11000110B DB 11000110B DB 11111100B DB 00000000B DB 00000000B DB 00000000B C DB 00000000B ; C DB 00000000B DB 00111100B DB 01100110B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 01100110B DB 00111100B DB 00000000B DB 00000000B DB 00000000B D DB 00000000B ; D DB 00000000B DB 11111000B DB 11001100B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11001100B DB 11111000B DB 00000000B DB 00000000B DB 00000000B E DB 00000000B ; E DB 00000000B DB 11111110B DB 11000000B DB 11000000B DB 11000000B DB 11111100B DB 11000000B DB 11000000B DB 11000000B DB 11111110B DB 00000000B DB 00000000B DB 00000000B F DB 00000000B ; F DB 00000000B DB 11111110B DB 11000000B DB 11000000B DB 11000000B DB 11111100B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 00000000B DB 00000000B DB 00000000B G DB 00000000B ; G DB 00000000B DB 00111100B DB 01100110B DB 11000000B DB 11000000B DB 11000000B DB 11001110B DB 11000110B DB 01100110B DB 00111100B DB 00000000B DB 00000000B DB 00000000B H DB 00000000B ; H DB 00000000B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11111110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B I DB 00000000B ; I DB 00000000B DB 00111100B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00111100B DB 00000000B DB 00000000B DB 00000000B J DB 00000000B ; J DB 00000000B DB 00011110B DB 00001100B DB 00001100B DB 00001100B DB 00001100B DB 00001100B DB 00001100B DB 11001100B DB 01111000B DB 00000000B DB 00000000B DB 00000000B K DB 00000000B ; K DB 00000000B DB 11000110B DB 11001100B DB 11011000B DB 11110000B DB 11100000B DB 11110000B DB 11011000B DB 11001100B DB 11000110B DB 00000000B DB 00000000B DB 00000000B L DB 00000000B ; L DB 00000000B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 11111110B DB 00000000B DB 00000000B DB 00000000B M DB 00000000B ; M DB 00000000B DB 11000110B DB 11101110B DB 11111110B DB 11111110B DB 11010110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B N DB 00000000B ; N DB 00000000B DB 11000110B DB 11100110B DB 11110110B DB 11111110B DB 11011110B DB 11001110B DB 11000110B DB 11000110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B O DB 00000000B ; O DB 00000000B DB 01111100B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B P DB 00000000B ; P DB 00000000B DB 11111100B DB 11000110B DB 11000110B DB 11000110B DB 11111100B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 00000000B DB 00000000B DB 00000000B Q DB 00000000B ; Q DB 00000000B DB 01111100B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11010110B DB 11001100B DB 01111010B DB 00000000B DB 00000000B DB 00000000B R DB 00000000B ; R DB 00000000B DB 11111100B DB 11000110B DB 11000110B DB 11000110B DB 11111100B DB 11011000B DB 11001100B DB 11000110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B S DB 00000000B ; S DB 00000000B DB 01111100B DB 11000110B DB 11000000B DB 01100000B DB 00111000B DB 00001100B DB 00000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B T DB 00000000B ; T DB 00000000B DB 01111110B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B U DB 00000000B ; U DB 00000000B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B V DB 00000000B ; V DB 00000000B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 01101100B DB 00111000B DB 00010000B DB 00000000B DB 00000000B DB 00000000B W DB 00000000B ; W DB 00000000B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11010110B DB 11010110B DB 11111110B DB 11101110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B X DB 00000000B ; X DB 00000000B DB 11000110B DB 11000110B DB 01101100B DB 00111000B DB 00010000B DB 00111000B DB 01101100B DB 11000110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B Y DB 00000000B ; Y DB 00000000B DB 01100110B DB 01100110B DB 01100110B DB 01100110B DB 00111100B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B Z DB 00000000B ; Z DB 00000000B DB 11111110B DB 00000110B DB 00001100B DB 00011000B DB 00110000B DB 01100000B DB 11000000B DB 11000000B DB 11111110B DB 00000000B DB 00000000B DB 00000000B BRACKL DB 00000000B ; [ DB 00000000B DB 00111100B DB 00110000B DB 00110000B DB 00110000B DB 00110000B DB 00110000B DB 00110000B DB 00110000B DB 00111100B DB 00000000B DB 00000000B DB 00000000B SLASHB DB 00000000B ; \ DB 00000000B DB 00000000B DB 10000000B DB 11000000B DB 01100000B DB 00110000B DB 00011000B DB 00001100B DB 00000110B DB 00000010B DB 00000000B DB 00000000B DB 00000000B BRACKR DB 00000000B ; ] DB 00000000B DB 00111100B DB 00001100B DB 00001100B DB 00001100B DB 00001100B DB 00001100B DB 00001100B DB 00001100B DB 00111100B DB 00000000B DB 00000000B DB 00000000B CARET DB 00010000B ; ^ DB 00111000B DB 01101100B DB 11000110B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B UNDER DB 00000000B ; _ DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11111110B DB 00000000B ACCENT DB 00110000B ; ` DB 00110000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 00000000B A2 DB 00000000B ; a DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 01111100B DB 00000110B DB 01111110B DB 11000110B DB 11000110B DB 01111110B DB 00000000B DB 00000000B DB 00000000B B2 DB 00000000B ; b DB 00000000B DB 11000000B DB 11000000B DB 11000000B DB 11111100B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11111100B DB 00000000B DB 00000000B DB 00000000B C2 DB 00000000B ; c DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 01111100B DB 11000110B DB 11000000B DB 11000000B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B D2 DB 00000000B ; d DB 00000000B DB 00000110B DB 00000110B DB 00000110B DB 01111110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 01111110B DB 00000000B DB 00000000B DB 00000000B E2 DB 00000000B ; e DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 01111100B DB 11000110B DB 11111110B DB 11000000B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B F2 DB 00000000B ; f DB 00000000B DB 00111100B DB 01100110B DB 01100000B DB 01100000B DB 11110000B DB 01100000B DB 01100000B DB 01100000B DB 01100000B DB 00000000B DB 00000000B DB 00000000B G2 DB 00000000B ; g DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 01111110B DB 11000110B DB 11000110B DB 11000110B DB 01111110B DB 00000110B DB 00000110B DB 01111100B DB 00000000B H2 DB 00000000B ; h DB 00000000B DB 11000000B DB 11000000B DB 11000000B DB 11111100B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B I2 DB 00000000B ; i DB 00000000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B J2 DB 00000000B ; j DB 00000000B DB 00000110B DB 00000110B DB 00000000B DB 00000000B DB 00000110B DB 00000110B DB 00000110B DB 00000110B DB 00000110B DB 11000110B DB 01111100B DB 00000000B K2 DB 00000000B ; k DB 00000000B DB 11000000B DB 11000000B DB 11000000B DB 11001100B DB 11011000B DB 11110000B DB 11011000B DB 11001100B DB 11000110B DB 00000000B DB 00000000B DB 00000000B L2 DB 00000000B ; l DB 00000000B DB 00111000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00111100B DB 00000000B DB 00000000B DB 00000000B M2 DB 00000000B DB 00000000B ; m DB 00000000B DB 00000000B DB 00000000B DB 11101100B DB 11010110B DB 11010110B DB 11010110B DB 11010110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B N2 DB 00000000B ; n DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11111100B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B O2 DB 00000000B ; o DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 01111100B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B P2 DB 00000000B ; p DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11111100B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11111100B DB 11000000B DB 11000000B DB 00000000B Q2 DB 00000000B ; q DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 01111110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 01111110B DB 00000110B DB 00000110B DB 00000000B R2 DB 00000000B ; r DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11111100B DB 11000110B DB 11000000B DB 11000000B DB 11000000B DB 11000000B DB 00000000B DB 00000000B DB 00000000B S2 DB 00000000B ; s DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 01111100B DB 11000000B DB 01110000B DB 00011100B DB 00000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B T2 DB 00000000B ; t DB 00000000B DB 00000000B DB 00110000B DB 00110000B DB 11111100B DB 00110000B DB 00110000B DB 00110000B DB 00110000B DB 00011100B DB 00000000B DB 00000000B DB 00000000B U2 DB 00000000B ; u DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 01111100B DB 00000000B DB 00000000B DB 00000000B V2 DB 00000000B ; v DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11000110B DB 11000110B DB 11000110B DB 01101100B DB 00111000B DB 00010000B DB 00000000B DB 00000000B DB 00000000B W2 DB 00000000B ; w DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11000110B DB 11000110B DB 11010110B DB 11010110B DB 11111110B DB 11000110B DB 00000000B DB 00000000B DB 00000000B X2 DB 00000000B DB 00000000B ; x DB 00000000B DB 00000000B DB 00000000B DB 11000110B DB 01101100B DB 00111000B DB 00111000B DB 01101100B DB 11000110B DB 00000000B DB 00000000B DB 00000000B Y2 DB 00000000B ; y DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11000110B DB 11000110B DB 11000110B DB 11000110B DB 01111110B DB 00000110B DB 00000110B DB 01111100B DB 00000000B Z2 DB 00000000B ; z DB 00000000B DB 00000000B DB 00000000B DB 00000000B DB 11111110B DB 00001100B DB 00011000B DB 00110000B DB 01100000B DB 11111110B DB 00000000B DB 00000000B DB 00000000B BRACEL DB 00000000B ; { DB 00000000B DB 00001110B DB 00011000B DB 00011000B DB 00011000B DB 01100000B DB 00011000B DB 00011000B DB 00011000B DB 00001110B DB 00000000B DB 00000000B DB 00000000B SBAR DB 00000000B ; | DB 00000000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00000000B DB 00011000B DB 00011000B DB 00011000B DB 00011000B DB 00000000B DB 00000000B DB 00000000B BRACER DB 00000000B ; } DB 00000000B DB 01110000B DB 00011000B DB 00011000B DB 00011000B DB 00000110B DB 00011000B DB 00011000B DB 00011000B DB 01110000B DB 00000000B DB 00000000B DB 00000000B FONT3270 ENDS END BEGIN